﻿Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms
Imports System.Drawing
Imports DevExpress.Utils.Drawing
Imports DevExpress.XtraEditors
Imports DevExpress.XtraEditors.Drawing
Imports DevExpress.XtraEditors.Repository
Imports DevExpress.XtraEditors.ViewInfo
Imports DevExpress.XtraEditors.Controls
Imports DevExpress.Utils
Imports DevExpress.XtraPrinting.Native.ExportOptionsPropertiesNames

Namespace IControls
    Public Class IMeMoEdit
        Inherits MemoEdit
        Public Sub New()
            'MyBase.SetStyle(ControlStyles.UserPaint, True)
            'MyBase.UpdateStyles()
            Me.EnterMoveNextControl = True
            'MyBase.Properties.AllowNullInput = DefaultBoolean.True
            'Me.BorderStyle = BorderStyles.NoBorder
            'Me.InitializeComponent()
        End Sub
        Protected Overrides Sub Dispose(ByVal disposing As Boolean)
            If (disposing AndAlso (Not Me.components Is Nothing)) Then
                Me.components.Dispose()
            End If
            MyBase.Dispose(disposing)
        End Sub

        Private Sub InitializeComponent()
            Me.fProperties = New DevExpress.XtraEditors.Repository.RepositoryItemMemoEdit()
            CType(Me.fProperties, System.ComponentModel.ISupportInitialize).BeginInit()
            Me.SuspendLayout()
            '
            'fProperties
            '
            Me.fProperties.Name = "fProperties"
            '
            'IMeMoEdit
            '
            Me.EnterMoveNextControl = True
            CType(Me.fProperties, System.ComponentModel.ISupportInitialize).EndInit()
            Me.ResumeLayout(False)

        End Sub

        Protected Overrides Sub OnPaint(e As PaintEventArgs)
            MyBase.OnPaint(e)
            ControlPaint.DrawBorder(e.Graphics, e.ClipRectangle, MyBase.Parent.BackColor, 0, ButtonBorderStyle.Solid, MyBase.Parent.BackColor, 0, ButtonBorderStyle.Solid, MyBase.Parent.BackColor, 0, ButtonBorderStyle.Solid, Color.Black, 1, ButtonBorderStyle.Dotted)
        End Sub

        Public Overrides ReadOnly Property EditorTypeName() As String
            Get
                Return RepositoryItemIMeMoEdit.PartialIMeMoEdit
            End Get
        End Property

        <DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _
        Public Shadows ReadOnly Property Properties() As RepositoryItemIMeMoEdit
            Get
                Return DirectCast(MyBase.Properties, RepositoryItemIMeMoEdit)
            End Get
        End Property

        Shared Sub New()
            RepositoryItemIMeMoEdit.RegisterIMeMoEdit()
        End Sub
        Private components As IContainer
    End Class
End Namespace